home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / MATHS / ARCAUT / Automatons_TM-Gas < prev    next >
Encoding:
Text File  |  1991-07-27  |  515 b   |  29 lines
  1. AUTOMATON*
  2.  
  3.   TM-Gas
  4.  
  5.   This is a Margolus neighbourhood gas simulation. The particles travel along
  6.   the horizontal & vertical; number & momentum are preserved in collisions.
  7.   Compare with 'HPP-Gas'.
  8.  
  9. INITIALISATION*
  10.  
  11.   10DEF PROCdo
  12.   20*SetEval wrap on
  13.   30*SetEval neig margolus
  14.   40*SetEval flag 4
  15.   50ENDPROC
  16.  
  17. SCREEN*
  18.  
  19.   10DEF PROCdo
  20.   20PROCsoup(255,1,.1)
  21.   30ENDPROC
  22.  
  23. CODE*
  24.  
  25. ( READ_NEIG
  26.   CELL OPP = IF (CW CCW = IF (CELL CW <> IF (CELL ==))) 
  27.    FLAG 0 <> IF (CW ==) CCW ==                          )
  28.  
  29. END*